(european-date-diary-pattern): Fix pattern so it

does not interpret a time as the year in a day-month entry.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 0ed6d844a6d217057d5229c01267fb26a1286a40..4a4690ec3f3be86d1822b09f9394a341c28f855a 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -518,7 +518,7 @@ See the documentation of `diary-date-forms' for an explanation."
 (defcustom european-date-diary-pattern
   '((day "/" month "[^/0-9]")
     (day "/" month "/" year "[^0-9]")
-    (backup day " *" monthname "\\W+\\<[^*0-9]")
+    (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)")
     (day " *" monthname " *" year "[^0-9]")
     (dayname "\\W"))
   "*List of pseudo-patterns describing the European patterns of date used.